-- card: 26200 from stack: in.03 еее
-- bmap block id: 14772
-- flags: 0000
-- background id: 2766
-- name: 
----- HyperTalk script -----
on openCard
  global chase
  send cardOpened to background
  if chase<>0 then hortaChase
end openCard

on move
  global direction,pillarEat,trollDead,blastDam,holeDam
  global chase,blasting,causeOfDeath
  if chase<>0 then
    if direction<>"up" and direction<>"east" then
      put "horta4" into causeOfDeath
      visual wipe up slowly to gray
      go to card id 3409
      exit move
    end if
  end if
  if direction = "north" then
    go to card id 29230
    exit move
  end if
  if direction = "south" or direction = "rear" then
    go to card id 3186
    exit move
  end if
  if direction = "east" then
    go card id 27851
    exit move
  end if
  if direction = "up" then
    go card id 27851
    exit move
  end if
  if direction = "west" then
    go to card id 30913
    exit move
  end if
  pass move
end move


on closeCard
  set the cursor to 4
  put "" into field 3
  show card button hortaCover
end closeCard

on take
  global object,carried
  -- remember to update carried if you do not pass take
  pass take
end take

on drop
  global object,dropRoom,carried
  -- remember to update carried if you do not pass drop
  pass drop
end drop

on use
  global object,carried
  -- update carried if use results in loss of object
  pass use
end use

on hortaChase
  hide card button hortaCover
  put "An angry Horta is hot on your heels!  Don't stop!" into field 3
end hortaChase




-- part 16 (button)
-- low flags: 80
-- high flags: 2000
-- rect: left=159 top=228 right=264 bottom=193
-- title width / last selected line: 0
-- icon id / first selected line: 9301 / 9301
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: knife
----- HyperTalk script -----
on mouseUp
  global takeFlag,examFlag,object,cardID
  put the name of the target into object
  if takeFlag = true
  then send take to card id cardID
else put "a knife" into field 3
put false into examFlag
end mouseUp



-- part 17 (button)
-- low flags: 80
-- high flags: 2000
-- rect: left=89 top=195 right=231 bottom=123
-- title width / last selected line: 0
-- icon id / first selected line: 1015 / 1015
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: nodule
----- HyperTalk script -----
on mouseUp
  global takeFlag,examFlag,object,cardID
  put the name of the target into object
  if takeFlag = true
  then send take to card id cardID
else put "a silicon sphere" into field 3
put false into examFlag
end mouseUp



-- part 18 (button)
-- low flags: 80
-- high flags: 2000
-- rect: left=97 top=141 right=177 bottom=131
-- title width / last selected line: 0
-- icon id / first selected line: 14953 / 14953
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: ladder
----- HyperTalk script -----
on mouseUp
  global takeFlag,examFlag,object,cardID
  put the name of the target into object
  if takeFlag = true
  then send take to card id cardID
else put "a rope ladder" into field 3
put false into examFlag
end mouseUp



-- part 19 (button)
-- low flags: 80
-- high flags: 2000
-- rect: left=167 top=125 right=161 bottom=201
-- title width / last selected line: 0
-- icon id / first selected line: 1019 / 1019
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: bomb
----- HyperTalk script -----
on mouseUp
  global takeFlag,examFlag,object,cardID
  put the name of the target into object
  if takeFlag = true
  then send take to card id cardID
else put "a time bomb" into field 3
put false into examFlag
end mouseUp



-- part 20 (button)
-- low flags: 80
-- high flags: 2000
-- rect: left=63 top=141 right=177 bottom=97
-- title width / last selected line: 0
-- icon id / first selected line: 24317 / 24317
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: key
----- HyperTalk script -----
on mouseUp
  global takeFlag,examFlag,object,cardID
  put the name of the target into object
  if takeFlag = true
  then send take to card id cardID
else put "a key" into field 3
put false into examFlag
end mouseUp



-- part 23 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=206 top=56 right=204 bottom=254
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 
----- HyperTalk script -----
on mouseUp
  global examFlag,direction,cardID,takeFlag
  if examFlag then
    put "a fantastic crystal dam, easily climable." into field 3
    put false into examFlag
  else
    if takeFlag then
      beep
      put "Take the dam?  You and who else's army?" into field 3
      put false into takeFlag
    else
      put "up" into direction
      send move to card id cardID
    end if
  end if
end mouseUp



-- part 33 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=101 top=45 right=93 bottom=141
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 
----- HyperTalk script -----
on mouseUp
  global examFlag,direction,cardID
  if examFlag then
    put "a tunnel leading north" into field 3
    put false into examFlag
  else
    put "north" into direction
    send move to card id cardID
  end if
end mouseUp



-- part 34 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=3 top=66 right=150 bottom=34
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 
----- HyperTalk script -----
on mouseUp
  global examFlag,direction,cardID
  if examFlag then
    put "a doorway leading west." into field 3
    put false into examFlag
  else
    put "west" into direction
    send move to card id cardID
  end if
end mouseUp



-- part 43 (button)
-- low flags: 00
-- high flags: 0001
-- rect: left=98 top=235 right=261 bottom=143
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: hortaCover


-- part contents for background part 25
----- text -----
Dam Room
(looking north)

-- part contents for background part 24
----- text -----
You are in the dam room.  There are exits to the north, south, and west.  The east wall is dominated by a huge crystal dam, about 10 feet high.  The surface of the dam has many crystalline projections which would make excellent handholds for easy climbing.  An eerie light is shimmering through the dam.


-- part contents for background part 36
----- text -----
0